home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / programming / oracle7 7.2 / NET / TCP11 / TCP11.VRF < prev   
Encoding:
Text File  |  1995-10-13  |  3.9 KB  |  89 lines
  1. /* Copyright (c) Oracle Corporation 1992, 1993.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     tcp11.vrf - Windows 95 V3 installation verification script for
  5.                  SQL*Net TCP/IP.
  6.  
  7.   DESCRIPTION
  8.     This script checks dependencies and environment settings for installation
  9.     of the Windows 95 SQL*Net TCP/IP product (client version).
  10.  
  11.   VERSION
  12.     1.1.1.6
  13.  
  14.   OWNER
  15.     Tony Rodgers
  16.  
  17.   MODIFIED    DD-MMM-YY Reason
  18.     trodgers  10-APR-92 Created.
  19.     Calvin    02-FEB-93 Modified for standalone install.
  20.     Eflores   26-JUL-94 Modified for 3.0.10 installer
  21.     LMurphy   07-SEP-95 Modified for Windows 95
  22. *****************************************************************************/
  23. {
  24.   { doit = execute("%installer_home%\win95.vrf"); }
  25.    [
  26.     'UNBOUND_VARIABLE:
  27.       {
  28.         required_version = product_version(w95instver);
  29.         temp = explode(required_version,".");
  30.         required_version = implode(list(first(temp),first(rest(temp)),
  31.                                         first(rest(rest(temp))),
  32.                                         first(rest(rest(rest(temp))))),".");
  33.         signal('failure,instantiate(nls("instver_too_early1","The version of
  34. the Installer currently running is %%installer_version%%. The installation you
  35. have chosen requires version %%required_version%% or later. Please run version
  36. %%required_version%% or later in order to perform this installation.")));
  37.       }
  38.    ]
  39.  
  40.  if (doit)
  41.   {
  42.     vrf_ratchet = "1.1.0.0.0";
  43.  
  44.     net1_analyze_comment = nls("net1 analyze comment","Analyzing %%product_label%% Dependencies...");
  45.     net1_install_scripts = nls("net1 install scripts","Installing %%product_label%% Installation Scripts...");
  46.     net1_install_dlls = nls("net1 install dlls","Installing %%product_label%% DLLs...");
  47.     net1_register_label = nls("net1 register label","Registering %%product_label%%...");
  48.  
  49.     tcp11_expl = nls("tcp11_expl", "A %%product_label%% DLL (SQLTCPNT.DLL) is being used on this machine. Please stop all Oracle applications that are using %%product_label%% before installing %%product_label%%.
  50.  
  51. Silent mode installation of %%product_label%% terminated.");
  52.     tcp11_inst = instantiate(nls("tcp11_inst", "A %%product_label%% DLL (SQLTCPNT.DLL) is being used on this machine. Please stop all Oracle applications that are using %%product_label%% before installing %%product_label%%.
  53.  
  54. Choose OK after you have closed all Oracle applications and want to resume the installation of %%product_label%%.
  55.  
  56. Choose CANCEL to terminate the installation of %%product_label%%.
  57.     "));
  58.     tcp11_inst_term = instantiate(nls("tcp11_inst_term", "%%product_label%% installation terminated."));
  59.     tcp11_inst_content = instantiate(nls("tcp11_inst_content", "%%product_label%% DLL Used"));
  60.     tcp11_inst_help = instantiate(nls("tcp11_inst_help", "The Oracle Installer has detected that a %%product_label%% DLL (SQLTCPNT.DLL) is being used on this machine.  Please stop all Oracle applications that are using %%product_label%% before installing %%product_label%%.
  61.  
  62. Choose OK after you have closed all Oracle applications and want to resume the installation of %%product_label%%.
  63.  
  64. Choose CANCEL to terminate the installation of %%product_label%%.
  65.     "));
  66.  
  67.    done = FALSE;
  68.    while(not(done))
  69.    { move_file("%ORACLE_HOME%\bin\sqltcpnt.dll", "%ORACLE_HOME%\bin\sqltcpnt.dll"); done = TRUE;}
  70.     [ 'PERMISSION_DENIED, 'INVALID_FILE_NAME, 'OS_ERROR, 'WRITE_ERROR:
  71.       {
  72.         if (silent_mode)
  73.           signal('FAILURE, instantiate(tcp11_expl));
  74.         else
  75.           information_dialog(instantiate(tcp11_inst), tcp11_inst_content, instantiate(tcp11_inst_help));
  76.       }
  77.       'FILE_NOT_FOUND:
  78.         done = TRUE;
  79.     ]                       
  80.    
  81.     return(verify(w95rsf72) + sum(dll,deinstl));
  82.   }
  83.  else
  84.   {
  85.     refresh_map_file = FALSE;
  86.     return(0);                      /* return 0 if doit not TRUE */
  87.   }
  88. } 
  89.